home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / e / gencodee_v21.lha / GenCodeE / E / Localized_DemoGenCodeE30b / Locale.e < prev   
Text File  |  1994-10-13  |  5KB  |  167 lines
  1. /****************************************************************
  2.    This file was created automatically by `FlexCat V1.3'
  3.    Do not edit by hand!
  4. ****************************************************************/
  5.  
  6. OPT MODULE
  7.  
  8.  
  9. ->*****
  10. ->** External modules
  11. ->*****
  12. MODULE 'locale' , 'libraries/locale'
  13. MODULE 'utility/tagitem'
  14.  
  15.  
  16. ->*****
  17. ->** Object definitions
  18. ->*****
  19. EXPORT OBJECT fc_type
  20.     PRIVATE
  21.         id    :    LONG
  22.         str    :    LONG
  23. ENDOBJECT
  24.  
  25. EXPORT OBJECT catalog_DemoGenCodeE
  26.     PUBLIC
  27.         msg_AppDescription        :    PTR TO fc_type
  28.         msg_AppCopyright        :    PTR TO fc_type
  29.         msg_WI_the_window        :    PTR TO fc_type
  30.         msg_GR_grp_0Title        :    PTR TO fc_type
  31.         msg_BT_put_constant_stringNotify0        :    PTR TO fc_type
  32.         msg_BT_put_constant_string        :    PTR TO fc_type
  33.         msg_BT_put_variable        :    PTR TO fc_type
  34.         msg_BT_return_id        :    PTR TO fc_type
  35.         msg_BT_call_hook        :    PTR TO fc_type
  36.         msg_LA_result        :    PTR TO fc_type
  37.         msg_TX_result        :    PTR TO fc_type
  38.         msg_BT_quit        :    PTR TO fc_type
  39.         msg_Missing_Muimaster_Library        :    PTR TO fc_type
  40.         msg_Missing_Icon_Library        :    PTR TO fc_type
  41.         msg_Not_Enough_Memory        :    PTR TO fc_type
  42.         msg_Not_Enough_Chip_Memory        :    PTR TO fc_type
  43.         msg_Missing_Library        :    PTR TO fc_type
  44.         msg_Arexx_Port        :    PTR TO fc_type
  45.         msg_Internal_Problem        :    PTR TO fc_type
  46.         msg_DGCE_Error        :    PTR TO fc_type
  47.         msg_OK        :    PTR TO fc_type
  48.         msg_Simple_OK        :    PTR TO fc_type
  49.         msg_String_Variable_Put        :    PTR TO fc_type
  50.         msg_Modified_ID_Returned        :    PTR TO fc_type
  51.         msg_Modified_By_Hook        :    PTR TO fc_type
  52.         msg_Modified_By_Arexx        :    PTR TO fc_type
  53.         msg_Unknown_ARexx_Command        :    PTR TO fc_type
  54. ENDOBJECT
  55.  
  56.  
  57. ->*****
  58. ->** Global variables
  59. ->*****
  60. DEF cat_DemoGenCodeE : PTR TO catalog
  61.  
  62.  
  63. ->*****
  64. ->** Creation procedure for fc_type object
  65. ->*****
  66. PROC create( id , str : PTR TO CHAR ) OF fc_type
  67.  
  68.     self.id := id
  69.     self.str := str
  70.  
  71. ENDPROC
  72.  
  73.  
  74. ->*****
  75. ->** Procedure which returns the correct string according to the catalog
  76. ->*****
  77. PROC getstr() OF fc_type RETURN ( IF cat_DemoGenCodeE THEN GetCatalogStr( cat_DemoGenCodeE , self.id , self.str ) ELSE self.str )
  78.  
  79.  
  80. ->*****
  81. ->** Creation procedure for catalog_DemoGenCodeE object
  82. ->*****
  83. PROC create() OF catalog_DemoGenCodeE
  84.  
  85.     DEF fct : PTR TO fc_type
  86.  
  87.     cat_DemoGenCodeE := NIL
  88.  
  89.     self.msg_AppDescription := NEW fct.create( 0 , 'Application example for GenCodeE' )
  90.     self.msg_AppCopyright := NEW fct.create( 1 , 'Public Domain !' )
  91.     self.msg_WI_the_window := NEW fct.create( 2 , 'The window !' )
  92.     self.msg_GR_grp_0Title := NEW fct.create( 3 , 'Click !' )
  93.     self.msg_BT_put_constant_stringNotify0 := NEW fct.create( 4 , 'Constant string put !' )
  94.     self.msg_BT_put_constant_string := NEW fct.create( 5 , 'Put _Constant String' )
  95.     self.msg_BT_put_variable := NEW fct.create( 6 , 'Put _Variable' )
  96.     self.msg_BT_return_id := NEW fct.create( 7 , '_Return ID' )
  97.     self.msg_BT_call_hook := NEW fct.create( 8 , 'Call _Hook' )
  98.     self.msg_LA_result := NEW fct.create( 9 , 'Result' )
  99.     self.msg_TX_result := NEW fct.create( 10 , 'Zzzzzzzzzzzzz' )
  100.     self.msg_BT_quit := NEW fct.create( 11 , '_Quit' )
  101.     self.msg_Missing_Muimaster_Library := NEW fct.create( 12 , 'Can''t open muimaster.library !' )
  102.     self.msg_Missing_Icon_Library := NEW fct.create( 13 , 'Can''t open icon.library !' )
  103.     self.msg_Not_Enough_Memory := NEW fct.create( 14 , 'Not enough memory !' )
  104.     self.msg_Not_Enough_Chip_Memory := NEW fct.create( 15 , 'Not enough chip memory !' )
  105.     self.msg_Missing_Library := NEW fct.create( 16 , 'Can''t open a needed library !' )
  106.     self.msg_Arexx_Port := NEW fct.create( 17 , 'Can''t create arexx port !' )
  107.     self.msg_Internal_Problem := NEW fct.create( 18 , 'Internal problem !' )
  108.     self.msg_DGCE_Error := NEW fct.create( 19 , 'DemoGenCodeE error !' )
  109.     self.msg_OK := NEW fct.create( 20 , '*_OK' )
  110.     self.msg_Simple_OK := NEW fct.create( 21 , '_OK' )
  111.     self.msg_String_Variable_Put := NEW fct.create( 22 , 'String variable put !' )
  112.     self.msg_Modified_ID_Returned := NEW fct.create( 23 , 'Modifed by ID returned !' )
  113.     self.msg_Modified_By_Hook := NEW fct.create( 24 , 'Modified by called hook function !' )
  114.     self.msg_Modified_By_Arexx := NEW fct.create( 25 , 'Modifed by ARexx command change_text !' )
  115.     self.msg_Unknown_ARexx_Command := NEW fct.create( 26 , 'Unknown ARexx command recieved !' )
  116.  
  117. ENDPROC
  118.  
  119.  
  120. ->*****
  121. ->** Opening catalog procedure (exported)
  122. ->*****
  123. PROC open( loc : PTR TO locale , language : PTR TO CHAR ) OF catalog_DemoGenCodeE
  124.  
  125.     DEF tag , tagarg
  126.  
  127.     self.close()
  128.  
  129.     IF ( localebase AND ( cat_DemoGenCodeE = NIL ) )
  130.  
  131.         IF language
  132.  
  133.             tag := OC_LANGUAGE
  134.             tagarg := language
  135.  
  136.         ELSE
  137.  
  138.             tag:= TAG_IGNORE
  139.  
  140.         ENDIF
  141.  
  142.         cat_DemoGenCodeE := OpenCatalogA( loc , 'DemoGenCodeE.catalog' ,
  143.                                 [    OC_BUILTINLANGUAGE , 'english' ,
  144.                                     tag , tagarg ,
  145.                                     OC_VERSION , 0 ,
  146.                                     TAG_DONE    ] )
  147.  
  148.     ENDIF
  149.  
  150. ENDPROC
  151.  
  152.  
  153. ->*****
  154. ->** Closing catalog procedure
  155. ->*****
  156. PROC close() OF catalog_DemoGenCodeE
  157.  
  158.     IF localebase THEN CloseCatalog( cat_DemoGenCodeE )
  159.     cat_DemoGenCodeE := NIL
  160.  
  161. ENDPROC
  162.  
  163.  
  164. /****************************************************************
  165.    End of the automatically created part!
  166. ****************************************************************/
  167.